﻿Namespace Geral

    Public Class Geral

#Region "Enumeradores"

        Public Enum Tipo_Recurso
            Nenhum = 0
            Mana = 1
            Iron_Man = 2
            Energy = 3
            Ferocity = 4
            Heat = 5
            Rage = 6
            None = 7
            Fury = 8
        End Enum

#End Region

#Region "Funções"

        Public Shared Function Criptografa(ByVal strValor As String) As String

            Dim objFBiblioteca As New FBiblioteca.Funcoes

            Return objFBiblioteca.Criptografa(strValor, My.Resources.ChaveCriptografia, FBiblioteca.Funcoes.TipoCriptografia.Hexadecimal)

        End Function

        Public Shared Function Descriptografa(ByVal strValor As String) As String

            Dim objFBiblioteca As New FBiblioteca.Funcoes

            Return objFBiblioteca.Descriptografa(strValor, My.Resources.ChaveCriptografia, FBiblioteca.Funcoes.TipoCriptografia.Hexadecimal)

        End Function


#End Region

    End Class

End Namespace